
# Introduction ------------------------------------------------------------

# Village-level standard deviation among placebo villages of midline conative attitudes index
el %>% filter(respondent_category == "Complier" & treatment != "absenteeism") %>%
	group_by(tc_id) %>%
	dplyr::summarize(absenteeism_action_ml = mean(absenteeism_action_ml)) %>%
	summarise(sd = sd(absenteeism_action_ml))


# 2. Developing the Experimental Media Content ----------------------------

# Share of lab respondents who thought the absenteeism stories could have happened in their vilalge
lab %>% filter(absenteeism == 1) %>%
	dplyr::summarize(could_have_happened = mean(stories_real_q4_3 == 1))


# 3. An Experiment Under Controlled Viewing Conditions --------------------

# Interpreting effect sizes
el %>% filter(respondent_category == "Complier" & treatment != "absenteeism") %>%
	group_by(tc_id) %>%
	dplyr::summarize(absenteeism_action_ml = mean(absenteeism_action_ml)) %>%
	summarise(median = median(absenteeism_action_ml),
						median_plus_effect = median + 0.123,
						percentlie = quantile(absenteeism_action_ml, probs = 0.85))


# 4. A Placebo-Controlled Field Experiment --------------------------------

# Interpreting effect sizes

el %>% filter(respondent_category == "Complier" & treatment != "absenteeism") %>%
	group_by(tc_id) %>%
	dplyr::summarize(absenteeism_action_ml = mean(absenteeism_action_ml),
									 absenteeism_action = mean(absenteeism_action)) %>%
	summarise(median_ml = median(absenteeism_action_ml),
						median_el = median(absenteeism_action),
						median_plus_effect_ml = median_ml + 0.042,
						median_plus_effect_el = median_el + 0.048,
						percentile_ml = quantile(absenteeism_action_ml, probs = 0.63),
						percentile_el = quantile(absenteeism_action, probs = 0.77),

						)


# 5. Discussion -----------------------------------------------------------

#efficacy among placebo complier parents in endline
el %>% filter(respondent_category == "Complier" & treatment != "absenteeism" & parent_ml) %>%
	dplyr::summarise(efficacy_el = mean(abs_efficacy) )


